home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
New Star Software Collection
/
NSS_Collection.iso
/
3-004 ms visual basic pro 30
/
4.imz
/
4.IMA
/
ABOUTBOX.FR_
/
ABOUTBOX.bin
Wrap
Text File
|
1993-04-28
|
5KB
|
140 lines
VERSION 2.00
Begin Form AboutBox
BorderStyle = 3 'Fixed Double
Caption = "About IconWorks"
ClipControls = 0 'False
FontBold = -1 'True
FontItalic = 0 'False
FontName = "System"
FontSize = 9.75
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 2775
Icon = ABOUTBOX.FRX:0000
Left = 1305
LinkMode = 1 'Source
LinkTopic = "Form2"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 2370
ScaleWidth = 5640
Top = 1080
Width = 5760
Begin PictureBox Pic_ApplicationIcon
AutoSize = -1 'True
BorderStyle = 0 'None
Height = 480
Left = 255
Picture = ABOUTBOX.FRX:0302
ScaleHeight = 480
ScaleWidth = 480
TabIndex = 4
Top = 255
Width = 480
End
Begin CommandButton Cmd_OK
Caption = "OK"
FontBold = -1 'True
FontItalic = 0 'False
FontName = "System"
FontSize = 9.75
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 360
Left = 4350
TabIndex = 6
Top = 1800
Width = 1035
End
Begin Line lin_HorizontalLine1
BorderWidth = 2
X1 = 975
X2 = 5010
Y1 = 1425
Y2 = 1425
End
Begin Label Lbl_IconWorks
Caption = "IconWorks"
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 18
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 450
Left = 990
TabIndex = 1
Top = 270
Width = 1920
End
Begin Label Lbl_Version
Caption = "Version 1.00"
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 9.75
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 240
Left = 990
TabIndex = 2
Top = 840
Width = 1470
End
Begin Label Lbl_Microsoft
Caption = "Microsoft Visual Basic for Windows 3.00"
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 9.75
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 240
Left = 990
TabIndex = 3
Top = 1110
Width = 4365
End
Begin Label Lbl_Info
Height = 600
Left = 1005
TabIndex = 5
Top = 1545
Width = 1875
End
Begin Label Lbl_InfoValues
Height = 600
Left = 2910
TabIndex = 0
Top = 1545
Width = 1410
End
End
DefInt A-Z
Declare Function GetFreeSpace Lib "Kernel" (ByVal wFlags) As Long
Declare Function GetWinFlags Lib "Kernel" () As Long
Const WF_STANDARD = &H10
Const WF_ENHANCED = &H20
Const WF_80x87 = &H400
Sub Cmd_OK_Click ()
Unload AboutBox
End Sub
Sub Form_Load ()
Dim WinFlags As Long
Dim Mode As String, Processor As String
' Dialog Boxes should only have Move and Close items
' in their System menus', so remove the others.
Remove_Items_From_Sysmenu AboutBox
' Center the AboutBox on the screen
Move (Screen.Width - Width) \ 2, (Screen.Height - Height) \ 2
' Get current Windows configuration
WinFlags = GetWinFlags()
If WinFlags And WF_ENHANCED Then Mode = "386 Enhanced Mode" Else Mode = "Standard Mode"
Lbl_Info.Caption = Mode + CRLF + "Free Memory:" + CRLF + "Math Co-processor:"
If WinFlags And WF_80x87 Then Processor = "Present" Else Processor = "None"
Lbl_InfoValues.Caption = CRLF + Format$(GetFreeSpace(0) \ 1024) + " KB" + CRLF + Processor
End Sub